﻿Public Class SistemTarihi
	Inherits Process

	Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
		Select Case e.EventType
			Case EventType.Initialize
				Text = "Sistem Tarihi"
				InitialHelp = "Sistem tarihinin belirlen."
				AddCombo("tur", "Sistem tarih ayarı", "O,Otomatik|M,Manüel", "", "1", "Geçerli bir seçenek kullanmalısınız.")
				AddDate("tarih", "Sistem tarihi", "", "")
			Case EventType.Shown
				Input("tur") = Genel.SistemTarihiTuru(Local)
				If Input("tur") = "M" Then Input("tarih") = Genel.SistemTarihi(Local)
				Buttons.Show("Save")
			Case EventType.Change
				If e.Name = "tur" Then Enabled("tarih") = Input("tur") = "M"
			Case EventType.Save
				If Not Confirm("Sistem tarihini değiştirmek istediğinizden emin misiniz?") Then Return
				Genel.SistemTarihiDegistir(Local, Input("tur"), If(IsEmpty("tarih"), "", YMD(Input("tarih"))))
				Close()
		End Select
	End Sub

End Class
